Option Explicit
Sub E_Sample006()
'ո E_Data01u@
    Dim myRng As Range
    Dim myCnt As Long
    Set myRng = Columns("C")				'jMӷd
    myCnt = WorksheetFunction.CountIf(myRng, "=*t*")	'wjM
    If myCnt <> 0 Then
        MsgBox "Ƥwsb"
    Else
        MsgBox "Ƥsb"
    End If
    Set myRng = Nothing					'
End Sub

